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CCCCCCCC «HH HH KK KK PPPPPPPP = RRRRRRRR 000000 

CCCCCCCC HH HH KK KK PPPPPPPP sa RRRRRRRR 000000 | 
cc HH HH KK KK PP PP RR RR 00 00 | 
CC KH HH KK KK PP PP RR RR 00 00 
cc MH HH KK KK PP PP RR RR 00 00 
cc HH HH KK KK PP PP RR RR 00 00 
cc HHHHHHHHHH = KKKKKK PPPPPPPP RRRRRRRR 00 00 
cc HHHHHHHHHH = KKKKKK PPPPPPPP RRRRRRRR 00 00 
cc HM HH KK KK PP RR RR 00 00 
cc NH HH KK KK PP RR RR 00 00 
cc HH HH KK KK PP RR RR 00 00 ows 
cc HH HH KK KK PP RR RR 00 00 wees 

CCCCCCCC HH HH KK KK PP Re RR 000000 Jaen 

CCCCCCCC HH HH KI. KK PP Rk RR 000000 pase | 
LL WII SSSSSSSS 
LL HII SSSSSSSS 
LL I] SS 
LL I] SS 
LL II SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL §=6sEIi = SSSSSSSS 
LLLLLLLLLL =ssSES) = SSSSSSSS 


MODULE CHKPRO ( " GUAGE, ‘ 32), 
LAS LEER? 


5 | 

: é 

3 5 BEGIN 

3 13 

3 8 5 ! PRR srigrenge inna mi si aarti now ernest meri 
; :* 

; WW Rpt 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
ea 0011 1 i® DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
5 i i ! we ALL RIGHTS RESERVED. ’ 
Ps ; ® 
: 616 14 1! ruts SOFTWARE is FURNISHED UNDER A LICENSE AND MAY BE USED AND copiee 7 
.:. 0015 1 !* ONLY IN ACCORDANCE WITH THE SUCH LICENSE AND WITH THE * 
3 1 0016 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
le 17 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 2 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 % dh ' :* TRANSFERRED. * 
Ps :* & 
: 1 0021 1 !« 3 INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; ¢ 00 ¢ 1 !e SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 4 ? : :* CORPORA TION. * 
Py 2 ra 
3 5 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: $ 4 $ : :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
: 28 0098 1 is ° 
3 , 594 : SRR AREER AA EAEAAAAAAA RARER AREA AERA AAA A EERE TAEAAAERERAAARAAAAREREe EES 
; 1 0031 1 !4¢ 

; ¢ Boas 1! 

: ? O34 ! FACILITY: F11ACP Structure Level 1 

> 35 0035 1 | ABSTRACT: 

; R088 1 i 

> i 0037 1! This routine checks the volume and file protection to see if the 

; $8 sf : ; user is authorized to perform the intended operation. 

: 40 0 1 | ENVIRONMENT: 

; «41 0041 1! 

3 $§ Bpeg 1! STARLET operating system, including privileged system services 

ee 0043 1! and internal exec routines. 

3 44 ng: 1! 

3; 6 45 045 1 !-- 

; 4 pe8 1! 

s; § 047 1! 

3 ri 8 ! AUTHOR: Andrew C. Goldstein, CREATION DATE: 2-May-1977 10:45 

3 I 30 MODIFIED BY: 

; ¢ 38 1 i v03-002 LMPO221 ark Pilan 29-Mar-1984 0350 
os a> as srasee UCBSL _ownbic’ to ORBSL. YOUNER and UCB$W_VPROT t 

3 i pee ' : ORB$W_PROT. “Also, change over to the new CHRPRO boterGass, 

: 1! 

: $ $$ 1! v03-001 LMPO154 L. Mark Pilant, 13-Sep-1983 15:29 


ar 


RCICHKPRO. B32; ? 


1 
mat 


1$-sep-1966 00:49:44 VAN Blisee32 y4.Qe742. page 2 


2 
s 


: 3s } Re-write to use the common protection checking routine. 

; 1 i A0102 Accoog9 drew C. Goldstein, 6=Dec-1979 17:43 
: 2 ! H Fix entnitielized” pointer 

: 8 1 i A0101 ACG0047 Andrew C. Goldstein, SmAug= -1979 22:02 
: ee ; : Add SYSPRV privilege, protection interface changes 

; 66 1/ A0100 ACG00001 Andrew C. Goldstein, 10-Oct-1978 20:02 
: 6 ; = Previous revision history moved to F11A.REV 

a: 4 

3; o ] LIBRARY | SYSSLIBRARY:L18;L32"; 

3 ie : REQUIRE ‘SRCS:FCPDEF.B : 

; 1 FORWARD ROUTINE 

3 75 1 CHECK_PROTECT, 

3 76 1 CHECK_PROT; 
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CHKPR 16-Sep-1984 49:44 VAX-11 Bliss-32 V4.0-742 Page 3 
04-000 en 8een BBs 98:58:57 Pe UWCMASTERSCY Tia. cheaCHKPRO.B32:1°" (23 
; rf i GLOBAL ROUTINE CHECK_PROTECT (ACCESS, HEADER, FCB, ALT_ACCESS, REQUIRED) = 
; 9 BEGIN 
: (Bl 94 2 LOCAL STATUS; 
Be 95 3 STATUS = (IF ACTUALCOUNT GEQU 5 | 
; %6 4 THEN KERNEL_CALL (CHECK_PROT, .ACCESS, .HEADER, .FCB, .ALT ACCESS, . REQUIRED) 
: 3 4 ELSE KERNEL~CALL (CHECK-PROT, .ACCESS, .HEADER, .FCB. 0, OF 
; $3 ; IF NOT STATUS THEN ERR_EXIT (.STATUS) ELSE RETURN .STATUS; 
TITLE CHKPRO 
"IDENT \V04-000\ 
.EXTRN  SYSSCMKRNL | 
.PSECT $CODES$,NOWRT,2 
0000 00000 .ENTRY CHECK_PROTECT, Save nothing : 0391. 
05 c 91 9002 CMPB CCAP) "#5 : 0395 | 
6 1F 0000 BLSSU 3 
7E 10 AC 7D 00007 MOV ALT_ACCESS, -(SP) > 0396 
02 11 0008 BRB 2$ : 
7E 7C 0000D 1$: CLRQ = = (SP) : 0397 
7E 08 AC 7D OOOOF 2$: MOVO HEADER, -(SP) : 
04 AC DD 00013 PUSHL ACCESS : | 
05 DD 00016 PUSHL : | 
SE DD 00018 PUSHL : 
0000v CF 9F OOOIA PUSHAB CHECK PROT : | 
000000006 9F 08 Fe OO01E CALLS #8, a¥SYSSCMKRNL : 
02 0 €8 0002 BLBS STATUS, 3$ : 0399. 
50 BF 00028 CHMU —«- STATUS : 
04 0002A 3$ RET : 


; Routine Size: 43 bytes, Routine Base: $CODE$ + 0000 


: 88 401 1 

; 44 bigs : ROUTINE CHECK_PROT (ACCESS, HEADER, FCB, ALT_ACCESS, REQUIRED) = 
; 9 0404 1 !+44 

3 3 405 1! 

; 9 208 1 ! FUNCTIONAL DESCRIPTION: 

; 96 407 1! 

; «69S 0408 1! This routine checks the volume and file protection to see if the 
3 38 ‘ret ’ user is authorized to perform the intended operation. 

; «98 411 1°! CALLING SEQUENCE: 

; 190 tig ' , CHECK_PROTECTION (ARG1, ARG2, ARGS, ARG4, ARGS, ARG6) 

; 101 414 1 ! INPUT PARAMETERS: 

3 196 3 3 ARG1: access mode 

; 10 218 1! READ_ACCESS = 0 

3; 6104 7 2% WRITE_ACCESS = 1 

: 6105 418 1! DELETE_ACCESS = § 

; 106 0419 1! CREATE_ACCESS = 


| g | 
CHK 1-58 1984 00:49:44 VAX-11 Bliss-32 V4.0-742 P 4 
v0e-000 127808- 1382 99339 :33 DISKSVMSMASTER=LF11A,SRCICHKPRO.B32:1 >" (2). 
= 4 
= 5 
© “a aie if any 
al 


SSeS 
= 


ernate access mask to test for 
f alternate access if required 
f optional 


i IMPLICIT INPUTS: 
4 CURRENT_UCB: address of device UCB 
IO_PACKET: 1/0 packet of this request 


' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
! OUTPUT PARAMETERS: 
NONE 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


--Oo°o Yr 


ARG4: (optiona 
ARGS: (optiona 


| 
i IMPLICIT OUTPUTS: 
i NONE | 


i ROUTINE VALUE: 
i NONE 


“OODONOVES WN" OOONOU ES wr 


| 
i SIDE EFFECTS: | 
: NONE | 


WAIN RoRonononononofonony 3 2 


wr 


HEADER : REF BBLOCK, ' File header 
FCB : REF BBLOCK; ! FCB arg 


LINKAGE 
L_CHKPRO_INT = JSB (RE 


SHIFAEA 


» REGISTER 
» REGISTER 


| 
LABEL | 
CHECK_BLOCK; ! body of a single check attempt 


LOCAL | 

' Local routine exit status 
S_BITS: BBLOCK (1], Actual access mask to file 
? i 


ONO US who 
SOOoOOCOoOSoooOooooO 


' Protection code of file 
' File owner UIC 
NOMBER, i Segnent number of file header 
CHPCTL : BBLOCK CCHPCTLSC_LENGTH], ! CHKPRO control block 
cere? : BBLOCK CCHPRETSC_LENGTHJ, ! CHKPRO return arg block 


: ocx, ! Agent rights block 
ORB : REF BBLOCK ! 0 ject's rights block 
LOCAL_ORB : age OR GTHI, : 


FO SSS PELLETS 
WO OD NOAUE WN (OOD NO UNE WW 0 ODNOA UNE AR SO OONOAUE WO 


, a at 
o 
uw 


BSC_LEN ! Needed when no FCB given 
MAP_AREA : RE BBLOCE. ' Address of header map area 
PRIVS_USED : BBLOCK (43; ! Privileges used 


PADI & BEE EEE EEE 


DONO UEWwN—-OO 


BIND ! Access mode tables 
! Write operation on volume 


= UPLIT ¢ 
ARMSM_WRITE OR ARMSM_DELETE OR ARMSM_CONTROL), 


Be Oe Be Oe Oe Oe Be Be Be Se Be Oe Be Se Se Se Fe Se Se Se Se Ge Se SHS Se Ge SH Se Se Ge Se Se Ge Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Oe Se Se Se Se eee 
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H 8 
16-Sep-1984 169:464 VAX-11 Bliss=-32 V4.0-742 P 
er seen BBs 98:58:37 Pee WAASTERc CY TIA. cheacHKPRo.e32:1°%" (23 


64 77 
65 7 !' no READALL privilege for operation 
28 23 NOREADALL = UPLIT (¢ 9 , 
6 : ARMSM_WRITE OR ARMSM_DELETE), 
6 4 § ! Check for zero file segment number 
EXT_HEADER = yout pyre ( 
7 %8'100111° 
5 ) : BITVECTOR, 
! Volume access bits 
4 VOL_ACCESS = UPLIT BYTE (¢ 
ARMSM_READ, 
ARMSH_READ OR ARMSM_WRITE 
0491 ARMSM-READ OR ARMSM~DELETE, 
3 ARMSM_READ OR ARMSM_WRITE, 
9 ARMSM_READ, 
94 ARMSM_READ OR ARMSM_WRITE 
495 ) : VECTOR C,BYTEJ, 


! File access bits 
FILE_ACCESS Sant BYTE (¢ 


ARMSM-READ OR ARMSM_WRITE, 
ARMSM_DELETE, 

ARMSM-WRITE, 

ARMSM-REA 

ARMSM~ CONTROL 

) : VECTOR C,BYTE); 


a kk a hh 
pelojelelololq) oo 
QESRENLS SELF 


SSBNS AR WW —OSHIE ARAVA SLO VS AE MO LO Ooo MRM PO OOO OOD 


08 EXTERNAL 

09 CLEANUP_FLAGS BITVECTOR, ! Cleanup action and status flags 
10 CURRENT_UCB REF BBLOCK, ' Device UC 

11 PRIMARY FCB REF BBLOCK, ! Primary FCB address 

\¢ 10_PACKET : REF BBLOCK, ' 1/0 parses of this request 

+ LOTAL_ARB : BBLOCK; ! Local copy of caller's ARB 

15 EXTERNAL ROUTINE 

1 ALLOCATE ' Get a block of non-paged pool 

1 DEALLOCATE, ' Release a block of non-paged pool 
1 EXESCHKPRO_INT : L_CHKPRO_INT ADDRESSING_MODE (GENERAL); 

1 ! General purpose protection checker 


! Initialize the CHKPRO control block and the return arg block. 


CHSFILL (0, CHPCTLSC_LENGTH, CHPCTL); 
CHSF ILL (0; CHPRETSC”LENGTH. CHPRET): 
CHPRETCCHPRETSL_PRIVS_USED] = PRIVS_USED; 


! Derive the composite file access mask from the access type and 
the alternate access mask. 


FILE_ACCESS_BITS = .FILE_ACCESSC.ACCESS] OR .ALT_ACCESS; 
! We try the whole operation twice: once with the added alternate access 


POPU DV PVPU PV PU PVPS PVPS SU STSISUSTSISTTTITI 
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8 
CHKPR tbose 1984 00:49:44 VAX-11 Bliss-32 V4,0-742 Page 6 cL 
voe~000 1e28eb=13Rs 93:33:31 UTSKSVMGHASTERSCE TIA, SReICHKPRO.B32;1°%° (2>. 
| 
: 4 2 | mask, and if that fails, once without. | : 
; 4 WHILE 1 DO | ; 
; $ 83 2 CHECK BLOCK: BEGIN ! scope of one try ; 
: ; 41 4! If the requested operation is a write operation, check to make ; 
2 $§) 58 ? : sure that the volume is not software write locked. ; 
: 231 44 4 [fF (-WRITE,OB AND FILE ACCESS BITS) NEQ 0 | : 
; ¢ 45 4 AND .BBLOCR CCURRENT_UCBCUCBSL_DEVCHAR], DEVS$V_SWLJ : 
3 6 4 THEN | ; 
3 4 BEGIN ; 
3 5 re STATUS = SS$_WRITLCK; : 
3 4 LEAVE CHECK_BLOCK; : 
3 229 2 END; : 
: 9 236 4 ! Get the address of the Agent's Rights Block (ARB) and Object'’s Rights Block | ; 
: 340 333 & (ORB). | ; 
: 26 555 4 ARB = .10_PACKETCIRPSL_ARB); | ; 
: 343 0996 4 ORB = - CURRENT _UCBCUCBSL_ORB); | ; 
: 245 558 4 ! Now check the volume protection to make sure that the requested operation | ; 
; 28 322 2 ! is allowed. If the attempted access is denied, return with the error. | ; 
: 248 561 4 CHPCTLCCHPCTLSL_ACCESS] = .VOL_ACCESSC.ACCESS); | : 
: 249 36¢ 4 -FILE_ACCESS BITSCARMSV_WRITEJ : 
; 250 563 4 " pe See aN ARMS$V_ CONTROL] 3 
H 51 564 4 THEN BBLOCK CCHPCTL pwecrust. ACCESS], ARMS$V_WRITE) = 1; : 
3 26 0565 4 IF .FILE_ACCESS BITS ARMSV_DELETE] 3 
3 2 8268 4 THEN Be, 0cK CHPCTLCCHPCTLSL_ACCESS], ARMSV_DELETE) = 1; 3 
: 4 567 4 BBLOCK CCHPCTLCCHPCTLSL_FLAGS), CHP$V_READJ™= 1; 3 
3; @ 0568 4 IF (.WRITE_OP AND .FILE-ACCESS BITS) NEQ 3 
; 256 0569 4 THEN BBLOCR CCHPCTLCCHPCTLSL_FCAGS), CHPSV_WRITE] = 1; 3 
; 257 0570 4 IF (.NOREADALL AND .FILE ACCESS BITS) | ; 
; 38 0971 4 THEN BBLOCK CCHPCTLECHPCTLSL_FLAGSJ, CHPS$V_USEREADALL) = 1; | : 
; o 0378 ? ! Items to return | : 
; o¢ 0375 ? PRIVS_USED = 0; : 
3 264 275 4 STATUS = EXESCHKPRO_INT (.ARB, .ORB, CHPCTL, 0); | 3 
; 265 578 4 IF .STAT 3 
3 66 144 ? THEN LEAVE CHECK_BLOCK; : 
: 268 581 4 ! If there is no FCB specified and no header given, it is a volume access | 3 
: +4 286 ? ! check. Im which case, control may be returned now. | : 
: 271 584 4 IF .FCB EQL 0 AND .HEADER EQL 0 | F 
; z 3 5 ‘ THEN LEAVE CHECK_BLOCK; : 
: ie 3 ? ! Get the protection, owner, and segment number for the desired header. | ; 
: 2? 239 IF .FCB NEQ 0 | : 
: 7 5 4 THEN 5 
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BEGIN 
ORB = FCBCFCBSR_ORBI; 


LOCAL_ORBCORBSL_GRP_PROT] = ORBCORBSL_GRP_PROT]; 
LOCAL-ORBCORBS$L-WOR-PROT] = ORBCORBSL “WOR PROT; 
BBLOCR CORBCORBSL_GRP_PROT], ARM$V_CONTROL) = 1; 


BBLOCK CORBCORBSL-WOR-PROTJ, ARMSV_CONTROLJ = 1; 
SEG_NUMBER = .FCBCFCBSW_SEGNI; 

ELSE 
CHSFILL (0, ORBSC_LENGTH, LOCAL_ORB); 
ORB = LOCAL_ORB; 
ORBCORB$W_STZE) = ORBSC_LENGTH; 
ORBCORB$B_TYPE) = DYNSC~ORB; 
ORBCORB$V~PROT_16) = 1; 
ORBCORBSW-PROTI = .HEADERCFH1$W_FILEPROT); 
ORBCORBSW-UIC } = .HEADERCFHISB UI CHEMBERI; 
ORBLORB$W_UICGROUP) = .HEADERCFH1$B8 OICGROUP); 
MAP_AREA = .HEADER + .HEADERLFH1SB_APOFFSETJ#2; 
SEG"NUMBER = .MAP_AREALFM1$B_EX_SEGNUMJ; 


Next, if the operation is on an extension header, make 


system is allowed access for most operations. 
IF .EXT_HEADERC.ACCESS) 
THEN 


! Note that control access is alwars denied for group and world access. 


sure that only the 


BEGIN 
IF, SEG_NUMBER GTR 0 AND NOT .CLEANUP_FLAGSCCLF_SYSPRVJ 


BEGIN 
STATUS = SS$_NOPRIV; 
LEAVE CHECK_BLOCK; 


Now check the access requested to determine if access is to be granted or 


denied. 
CHPCTLCCHPCTLSL_ACCESS) = .FILE_ACCESS_BITS; 
PRIVS_USED = 0; 


STATUS = EXESCHKPRO_INT (.ARB, .ORB, CHPCTL, CHPRET); 


Control implies rese attribute access. The protection check needs 


to be retried in this case. 
IF NOT .STATUS 
THEN 


BEGIN 
IF .ACCESS EQL RDATT_ACCESS 
THEN 

BEGIN 
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3 5 6 BBLOCK pews CTL }: ARM$V_READ] = 0; ‘ 
: BBLOCK LCHP " CHPCTLSL_ACCE ARMSV_CONTROL] = 1; ° 
5 PRIVS USED = 0; : 
; : 6 gioiwe = EXESCHKPRO_INT (.ARB, .ORB, CHPCTL, CHPRET); : 
; re § ? END; ‘ 
; ri} 655 4! If we just tried a protection check with alternate access and it ‘ 
; $ 4 ! failed, retry it with just the normal access. Otherwise, we are ° 
3 4 4 ! done. ‘ 
; 345 3 4! : 
; re 5 : 
; rt 4 , END; ! end of block CHECK_BLOCK ‘ 
: 349 664 IF .STATUS : 
: 350 66 = »-REQUIRED ‘ 
; 51 64 FILE ACCESS BITS EQL .FILE_ACCESSC.ACCESS) . 
; 2¢ 65 THEN EXITLOOP; : 
; 54 4] FILE_ACCESS_BITS = .FILE_ACCESSC.ACCESS); | : 
; 2 008 END; ! end of retry loop : 
3 57 70 ' Check if the alternate access check failed. If so, return alternate : 
; 358 0671 ' success status. : 
3; 359 b6r¢ ! 3 
; 360 067 F 
H 61 bee IF aed $ 
3 ¢ 75 AND . T_ACCESS NEQ 0 3 
3 nore TLE A ACCESS BITS EQL "a -ACCESSC.ACCESS) 3 
: bee THEN STATS = SSS_NOTALLPRIV : 
3 6679 RETURN .STATUS : 
; 36 0680 3 
; 368 0681 1 END; ! End of routine CHECK_PROTECT : 
00028 -BLKB 1 3 

QO00001A Q002C P.AAA: .LONG 26 3 3 

OO000000A 00030 P.AAB: .LONG 10 3 3 

27 00034 P.AAC: .BYTE 39 3 3 

03 (01 63 09 03 O01 00035 P.AAD: .BYT ts aa Be ee Be ; : ; 

10 01 O02 O08 O3 01 00038 P.AAE: .BYT Se Be Be Se Va TO ; 3 

RITE_OP= P.AAA ; 

NOREABALL= P.AAB : 

EXT_HEADER= P.AAC ; 

VOL ~ACCESS= P. AAD ; 

FILE_ACCESS= P.AAE ; 

eEXTRN CLEANUP_FLAGS, CURRENT_UCB : 

TEXTRN PRIMARY-FCB ig PACKET” | ; 

-EXTRN LOCAL_ARB ATE ; 

“EXTRN DEALLOCATE, EXESCHKPRO. INT ; 

OFFC 00000 CHECK_PROT: 3 

WORD Seve R2,R3,R4,R5,R6,R7,R8,R9,RI0,R11 ; 0402 e 

5E FF6C CE «9E 00002 MOVAB =-148(SPS, SP ; ; 


CHKPR 1b. ep-1984 149:44 VAX-11 Bliss-32 V4.0-742 9 
y0n~000 14- ety 7 99: :29:21  DISKSVMSMASTER:CF11A.SRCICHKPRO.B32; 429 * | 

00 &E a 00 2c one movcS #0, (SP), #0, #12, CHPCTL : 0523 | : 

00 6 ; 00 2c i MOVCS #0, (SP), #0, #40, CHPRET + 0524 | : 

FO AD 4 AE 9E 0001 MOVAB PRIVS_USED, CHPRET+36 ; 05 5 : 

20 Dd AF 9F 001A MOVAB FILE ACCESS, RO : 0531) : 

59 0 04 AC § 1 ADDL3 ACCESS 7 “a9 : | ; 

7 69 10 ac &9 BISB ALT ACESS, (RO), FILE_ACCESS_BITS : : 

1 ps 028 1$: CLRL sR > 0544 : 

57 BE AF ; 00 A BITB $WRITE_OP, FILE_ACCESS_BITS : : 

14 13 000 BEQL 3$ ; : 

51 06 00 INCL RI : : 

50 00006 CF D MOVL CURRENT UCB, .R0 + 0545 ; 

08 3B =A 1 €1 000 BBC (R : ; 

58 025c 8F 3¢ 0003C MOVZWL #604> STATUS > 0548 : 

0124 31 00041 gs: BRW + 0549 F 

50 00996 CF DO 00044 3$: MOVL 19 PACKET, RO + 0555 ; 

SA 5 AO DO 00049 MOVL 8TRO : : 

50 00006 CF 00 00040 MOVL cunment UCB. RO : 0556 3 

56 1¢ AO DO 00052 MOVL ; : 

50 98 AF 9E 00056 MOVAB VOL_AC tess RO + 0561 ’ 

Fe AD 04 BC40 9A O005A MOVZBL aAcTESS ROS, CHPCTL ; : 

04 5 01 £0 00060 BBS #1, FILE_ACCESS_BITS, 4$ : 056 ; 

04 57 04 a 0064 BBC #4, FILE-ACCESS-BITS, 5$ : 056 ; 

F4 AD 02 8 00068 4$: BISB2 me. CHPCT : 0564 : 

04 57 03 €1 9006¢ 5$: BBC #3, FILE_ACCESS_BITS, 6$ > 0565 ; 

FS AD 08 88 00070 BISB #8, CHPCT : 0566 i 

FB AD 01 88 00074 6$ BISB2 #1. CHPCTL+4 : 0567 ; 

04 51 €9 00078 BLBC. R21, _ 78 : 0568 | ; 

F8 AD 02 8s 00078 BISB2 #2, CHPCTL+4 : 0569 ; 

57 FF6C CF 93 OOO7F 7$: BITB  NOREADALL, FILE_ACCESS_BITS : 0570 F 

04 12 00084 BNEQ : ; 

F8 OAD 04 88 00086 BISB2 #4, CHPCTL+4 : 0571 : 

04 AE D4 OOOBA 8S: CLRL  PRIVS_USED : 0575 : 

52 F4 AD 9€ 0008D MOVAB CHPCTC, R2 : 0577 F 

53 04 00091 CLRL sR : 3 

51 56 DO 00093 MOVL ORB. Ri ; ; 

50 Sa D0 00096 MOVL : 3 

000000006 00 16 000 JSB EXESCHKPRO_ INT : : 

58 5 09 009F MOVL STATUS : ; 

03 5 5 O0A2 BLBS eTATOS. $3 : 0578 ; 

00c3 31 OA BRW 15$ : F 

51 0c AC DO 000A8 9S: MOVL FCB, R1 : 0584 | ; 

0s (1 wv BNEQ 10$ 3 | 3 

08 ac D AE TSTL HEADER : : 

bE 13 00081 BEQL 2$ : : 

1 0 0085 10$: STL RI + 0589 : 

1c 13 0008 BEQL 118 ; ; 

56 58 Al 9€ 00087 MOVAB (R1), ORB : 0592 : 

8 AE : A6 9E 0008 MOVAB (ORBS, LOCAL -ORB+32 > 0596 ; 

C AE 4 Ad 9E 000C V (ORB), LOCAL-ORB+36 : 0597 : 

0 Ab 1 00C BISB2 #16, 32(ORB) : 0598 : 

4 Ab 1 69 BISB2 #16 § (ORB) : 0599 : 

58 2a AT 36 000¢D MOV ZWL a SEG_NUMBER : 9600 : 

00 6E 30 2C 000D3 118:  MOVCS #0, (SP), #0, #88, LOCAL_ORB > 0604 : 

08 AE OODA : | : 
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400 bytes, Routine Base: S$CODE$S + 0041 


: Routine Size: 


N 8 
CHKPRO 16-Sep-1 
v04-000 


; Size: 443 code + 22 data bytes 
00:13 


. ion fies 315. 
; Elapsed tteee 00:40. 
3 Lines/CPU Min: 3444 
3 “een A Ste 15866 
; 1,8 Used: 173 pages 
3 ee ation Complete 


984 4 00: 49:44 VAX=11 Bliss-32 V4.0-742 ge 11 

14-Sep-1984 12:29:21  DISKSVMSMASTER:CF11A.SRCICHKPRO.B32; *. (2), 

| 

| 

| 

: PSECT SUMMARY | 

: Name Bytes Attributes 
: SCODES 465 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

H Library Statistics | 

: eoceee== Symbols ------- - Pages Processing 

E File Total Lneded Percent Mapped Time 

: _$255$DUA28:(SYSLIBILIB.L32;1 18619 41 0 1000 00:01.9 | 

; COMMAND QUALIFIERS | 

: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=L1S$:CHKPRO/OBJ=OBJ$:CHKPRO MSRC$:CHKPRO/UPDATE=(ENH$: CHKPRO) | 
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